﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if qingtian.confff("regt")=1 then
	call regt1
elseif qingtian.confff("regt")=2 then
	call regt2
else
IF (Request.QueryString("Action")="save") Then
	call save
else
	call add
End IF
End IF
end Function
Private Function getIP() 
Dim strIPAddr,str 
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
Else 
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
End If 
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
sub regt1
	dim url
	url=Request("url")
	if url="" then url="index.asp"
select case v
case "0"
we0="<br/>"
%>
<card title="注册"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>注册</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%=qingtian.qingsav("9991233")%>
<%=we%>注册通道已经关闭,如需注册请联系站长,谢谢!<%=we0%>
<%=sou%><a href="<%=qingtian.backurl(url)%>">返回来源页面</a><%=we0%>
<%
end sub
sub regt2
	dim url
	url=Request("url")
	if url="" then url="index.asp"
select case v
case "0"
we0="<br/>"
%>
<card title="注册"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>注册</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%=we%>(注:短信注册系统不回复信息,请在注册完毕1分钟后输入手机号,密码为手机号后四位登陆,登陆成功后及时更改密码已防别盗!)<%=we0%>
<%=qingtian.qingsav("9991234")%>
<%=we%>《温馨提示》<br/>
登录后访问本站任何页面,将页面加入书签, 您以后再从此书签进入就可实现自动登录.
请不要向其他人透漏此链接,防止你的帐号信息被盗.<%=we0%>
<%=sou%><a href="<%=qingtian.backurl(url)%>">返回来源页面</a><%=we0%>
<%
end sub
sub add
	dim url,i
	url=Request("url")
	if url="" then url="index.asp"
select case v
case "0"
%>
<card id="add" title="注册"><p align="<%=qingtian.px%>">
<a href="Login.Asp?sid=<%=sidd%>&amp;url=<%=url%>">会员登录</a>|注册会员<br/><%=qingtian.qingsav("20")%>
-------------<br/>
<%
IF (Request.QueryString("Action")<>"add") Then
%>
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播下列信息：<br/>
1、煽动抗拒、破坏宪法和法律、行政法规实施的；<br/>
2、煽动颠覆国家政权,推翻社会主义制度的；<br/>
3、煽动分裂国家、破坏国家统一的；<br/>
4、煽动民族仇恨、民族歧视,破坏民族团结的；<br/>
5、捏造或者歪曲事实,散布谣言,扰乱社会秩序的；<br/>
6、宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<br/>
7、公然侮辱他人或者捏造事实诽谤他人的,或者进行其他恶意攻击的；<br/>
8、损害国家机关信誉的；<br />
9、其他违反宪法和法律行政法规的；<br/>
10、进行商业广告行为的。<br />
二、互相尊重,对自己的言论和行为负责。<br/>
<a href="reg.asp?sid=<%=sidd%>&amp;Action=add&amp;url=<%=url%>">我同意</a> |
<a href="index.asp?sid=<%=sidd%>&amp;url=<%=url%>">不同意</a><br/>
-------------<br/>
<%
else
%>             <%=qingtian.qingsav("20")%>
		用户名:(必填,登陆用)<br/>
		<input name="users" emptyok="true" type="text" maxlength="10"/><br/>
		手机号:(必填,登陆用)<br/>
		<input name="mobile" emptyok="true"  format="*N" maxlength="11"/><br/>
		呢称:(必填)<br/>
		<input name="name" emptyok="true" type="text"   maxlength="10"/><br/>
                性别<select name='sex' value='2'>
                <option value="1">男性</option>
                <option value="2">女性</option>
                </select><br/>
		密 码:(必填)<br/>
		<input name="pass" emptyok="true" maxlength="50"/><br/>
		邮 箱:(必填取回密码用)<br/>
		<input name="email" emptyok="true" maxlength="20"/><br/>
		<anchor>快速注册
			<go href="reg.asp?Action=save&amp;sid=<%=sidd%>&amp;url=<%=url%>" method="post">
				<postfield name="name" value="$(name)" />
				<postfield name="pass" value="$(pass)" />
				<postfield name="users" value="$(users)" />
                                <postfield name="mobile" value="$(mobile:n)" />
                                <postfield name="sex" value="$(sex:n)" />
				<postfield name="email" value="$(email)" />
			</go>
		</anchor><br/>提示:请认真填写用户名和密码,同一个ip只能注册一个用户,已经注册过,点此<a href='login.asp?sid=<%=sidd%>&amp;url=<%=url%>'>登录</a><br/><%=qingtian.qingsav("21")%>
<%
end if
%>
<a href="<%=qingtian.backurl(url)%>">返回来源页面</a><br/>
<%
case "1"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>注册</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%=dao%><a href="Login.Asp?sid=<%=sidd%>&amp;url=<%=url%>">会员登录</a>|注册会员<%=we0%><%=qingtian.qingsav("20")%><%=we%>
<%
IF (Request.QueryString("Action")<>"add") Then
%>
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播下列信息：<br/>
1、煽动抗拒、破坏宪法和法律、行政法规实施的；<br/>
2、煽动颠覆国家政权,推翻社会主义制度的；<br/>
3、煽动分裂国家、破坏国家统一的；<br/>
4、煽动民族仇恨、民族歧视,破坏民族团结的；<br/>
5、捏造或者歪曲事实,散布谣言,扰乱社会秩序的；<br/>
6、宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<br/>
7、公然侮辱他人或者捏造事实诽谤他人的,或者进行其他恶意攻击的；<br/>
8、损害国家机关信誉的；<br />
9、其他违反宪法和法律行政法规的；<br/>
10、进行商业广告行为的。<br />
二、互相尊重,对自己的言论和行为负责。<br/>
<a href="reg.asp?sid=<%=sidd%>&amp;Action=add&amp;url=<%=url%>">我同意</a> |
<a href="index.asp?sid=<%=sidd%>&amp;url=<%=url%>">不同意</a><%=we0%>
<%
else
%>
<%=qingtian.qingsav("20")%>
<form action="reg.asp?Action=save&amp;sid=<%=sidd%>&amp;url=<%=url%>" method="post">
		用户名:(必填,登陆用)<br/>
		<input name="users" emptyok="true" type="text" maxlength="10"/><br/>
		手机号:(必填,登陆用)<br/>
		<input name="mobile" emptyok="true"  format="*N" maxlength="11"/><br/>
		呢称:(必填)<br/>
		<input name="name" emptyok="true" type="text"   maxlength="10"/><br/>
                性别<select name='sex' value='2'>
                <option value="1">男性</option>
                <option value="2">女性</option>
                </select><br/>
		密 码:(必填)<br/>
		<input name="pass" emptyok="true" maxlength="50"/><br/>
		邮 箱:(必填取回密码用)<br/>
		<input name="email" emptyok="true"  maxlength="20"/><br/>
                <input type="submit" value="快速注册" /></form><%=we0%><%=sou%>提示:请认真填写用户名和密码,同一个ip只能注册一个用户,已经注册过,点此<a href='login.asp?sid=<%=sidd%>&amp;url=<%=url%>'>登录</a><%=we0%><%=dao%>------------<%=we0%><%=qingtian.qingsav("21")%>
<%
end if
%>
			<%=sou%><a href="<%=qingtian.backurl(url)%>">返回来源页面</a><%=we0%>
<%
End Select
end sub
%>
<%sub save
	dim url,rs,sql,rs8,sql8,i,id
	url=Request("url")
	if url="" then url="index.asp"

	dim name,pass,users,sex,mail,errmsg,flag,pic,touxian,ip
                ip=getIP()
		name=qingtian.repsql(trim(Request.form("name")))
		pass=Replace(trim(Request.form("pass")),"'","''")
		users=qingtian.repsql(trim(Request.form("users")))
		mail=Replace(trim(Request.form("email")),"'","''")
		mobile=Replace(trim(Request.form("mobile")),"'","''")
		sex=Request.form("sex")
                Randomize()
                if sex=1 then 
                sex="男"
                touxian="/img/boy/"&int(rnd*5+1)&".gif"
                else 
                sex="女"
                touxian="/img/girl/"&int(rnd*5+1)&".gif"
                end if
select case v
case "0"
we0="<br/>"
title1="<card id=""login"" title=""注册用户""  ontimer=""reg.asp?Action=add&amp;sid="&sidd&"&amp;url="&url&"""><timer value='20'/><p align="""&qingtian.px&""">"
title2="<card id=""login"" title=""注册用户""><p align="""&qingtian.px&""">"
case "1"
hr="<hr>"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
title1="<meta name=""keywords"" content="",V1.0""/><meta name=""author"" content=""晴天建站""/><meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/><meta http-equiv=""Cache-Control"" content=""no-cache""/><meta http-equiv=""Expires"" content=""0""/><meta http-equiv=""Refresh"" content=""1; url=reg.asp?Action=add&amp;sid="&sidd&"&amp;url="&url&"""><title>注册用户</title></head><body>"
title2="<title>注册用户</title></head><body>"
End Select
		if len(users)<2  then errmsg=errmsg&""&we&"用户名字数不能小于2"&we0&"":flag=0
		if len(name)<2  then errmsg=errmsg&""&we&"呢称字数不能小于2"&we0&"":flag=0
		if len(pass)<4  then errmsg=errmsg&""&we&"密码字数不能小于4"&we0&"":flag=0
		if len(mobile)<>11  then errmsg=errmsg&""&we&"手机号码格式错误"&we0&"":flag=0
		if mail=""  then errmsg=errmsg&""&we&"邮箱不能为空"&we0&"":flag=0
		if instr(mail,"@")=0  then errmsg=errmsg&""&we&"邮箱格式不正确"&we0&"":flag=0
	IF  flag<>"0" Then
		set rs=Server.CreateObject("Adodb.Recordset")
  		sql="select * FROM qingtian_user where [user]='" & users&"' or [mail]='"&mail&"' or [nl]='"&ip&"' or [name]='"&name&"' or [mobile]='"&mobile&"'"
  		rs.open sql,conn,1,1
		if not (rs.bof and rs.eof)  then
		%>
			<%=title1%>
			<%if rs("nl")=ip then%>
			<%=we%>对不起,注册失败该会员ip已经注册。该会员的昵称:<%=rs("name")%>,ID:<%=rs("id")%><%=we0%>
			<%end if%>
			<%if rs("user")=users then%>
			<%=we%>对不起,该用户已被注册。<%=we0%>
			<%end if%>
			<%if rs("name")=name then%>
			<%=we%>对不起,该用户昵称已被注册。<%=we0%>
			<%end if%>
			<%if rs("mobile")=mobile then%>
			<%=sou%>对不起,该手机号码已被注册。<%=we0%>
			<%end if%>
			<%if rs("mail")=mail then%>
			<%=we%>对不起,该邮箱已注册过会员。<%=we0%>
			<%end if%>
<%=sou%>已经注册过,点此<a href='login.asp?sid=<%=sidd%>&amp;url=<%=url%>'>登录</a><%=we0%><%=dao%>------------<%=we0%>
<%=sou%><a href="<%=qingtian.backurl(url)%>">返回来源页面</a><%=we0%>
		<%
		else

	

			dim s1,s2


				sid=qingtian.RunStr


				sid=md5(pass&sid)
				sid=ucase("3gqt"&md5(strReverse(sid)))
                                sidd=sid&"-"&v&"-"&fv&"-"&midqd
                                siddd=sid&"-"&v&"-a-"&midqd
				set rs8=Server.CreateObject("Adodb.Recordset")
  				sql8="select * FROM qingtian_user"
  				rs8.open sql8,conn,1,3
				rs8.addnew
				rs8("user")=users
				rs8("name")=name
				rs8("pass")=md5(pass)
				rs8("zf")=10
				rs8("money")=qingtian.inlof("moerye")
				rs8("mail")=mail
				rs8("mobile")=mobile
				rs8("mark")=qingtian.confff("shu")
				rs8("xingbie")=sex
				rs8("touxian")=touxian
				rs8("nl")=ip
				rs8("sid")=md5(sid) & md5(strReverse(sid))
				rs8("sidd")=siddd
				rs8.update
                                id=rs8("id")
				rs8.close
				set rs8=nothing

				s1 = "恭喜你!" &name& ",你已注册成功!你的用户名为:" & users & ",你的手机号为:" & mobile & ",ID号为:" & id & ",密码为:" & pass & "请记好用户名，以便下次登陆用!<br/><a href='user/usermodify.asp?sid="&sidd&"'>进入修改我的资料</a><br/><a href='user/index.asp?sid="&sidd&"'>进入到我的地盘</a>"
                                s2 = id&"tt"&qingtian.inlof("msg")
                                qingtian.addnfo(id&"tt"&"恭喜你!" &name& ",你已注册成功!你的用户名为:" & users & ",你的手机号为:" & mobile & ",ID号为:" & id & ",密码为:" & pass & "请记好用户名，以便下次登陆用!")
                                qingtian.addnfo(s2)
                                qingtian.addong("注册为本站会员")
       				%>
                                <%=title2%><%=qingtian.qingsav("20")%>
				<%=we%><%=s1%><%=we0%>
<%=dao%>------------<%=we0%>
<%=sou%><a href="<%=qingtian.backurl(url)%>">返回来源页面</a><%=we0%>
				<%		


		end if
		rs.close
		set rs=nothing


	else
	%>
                <%=title1%><%=qingtian.qingsav("20")%>
		<%=errmsg%>
<%=sou%>已经注册过,点此<a href='login.asp?sid=<%=sidd%>&amp;url=<%=url%>'>登录</a><%=we0%><%=dao%>------------<%=we0%>
<%=sou%><a href="<%=qingtian.backurl(url)%>">返回来源页面</a><%=we0%>
<%	
end if
end sub
%>

